home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AOL File Library: 4,401 to 4,500
/
aol-file-protocol-4400-4401-to-4500.zip
/
AOLDLs
/
PDA-Newton Development
/
ND TV Pad Source
/
TV Pad Ä.sit
/
TV Pad ƒ
/
Project Data
< prev
next >
Wrap
Text File
|
1994-03-01
|
6KB
|
142 lines
//-------------------------------------------------------------------------------
// Constants
//-------------------------------------------------------------------------------
constant kMagnavoxTV := 0;
constant kEmersonVCR := 1;
constant kMitsubishiTV := 2;
constant kSonyTV := 3;
//-------------------------------------------------------------------------------
// Command Constants
//-------------------------------------------------------------------------------
constant kCh0:= 0;
constant kCh1:= 1;
constant kCh2:= 2;
constant kCh3:= 3;
constant kCh4:= 4;
constant kCh5:= 5;
constant kCh6:= 6;
constant kCh7:= 7;
constant kCh8:= 8;
constant kCh9:= 9;
constant kChPlus:= 10;
constant kChMinus:= 11;
constant kLouder:= 12;
constant kSofter:= 13;
constant kMute:= 14;
constant kRewind := 15;
constant kPlay:= 16;
constant kForward := 17;
constant kStop := 18;
constant kPause := 19;
constant kRecord := 20;
constant kPower := 21;
constant kTVCR := 22;
constant kAltCh := 23;
constant kSwitchRemote1 := 101;
constant kSwitchRemote2 := 102;
constant kSwitchRemote3 := 103;
constant kSwitchRemote4 := 104;
//-------------------------------------------------------------------------------
// Magnavox Resources
//-------------------------------------------------------------------------------
rf := OpenResFileX(Home & "Magnavox.rsrc");
magTCh0 := GetNamedResource("IRCD", "MagTCh0", 'resource);
magTCh1 := GetNamedResource("IRCD", "MagTCh1", 'resource);
magTCh2 := GetNamedResource("IRCD", "MagTCh2", 'resource);
magTCh3 := GetNamedResource("IRCD", "MagTCh3", 'resource);
magTCh4 := GetNamedResource("IRCD", "MagTCh4", 'resource);
magTCh5 := GetNamedResource("IRCD", "MagTCh5", 'resource);
magTCh6 := GetNamedResource("IRCD", "MagTCh6", 'resource);
magTCh7 := GetNamedResource("IRCD", "MagTCh7", 'resource);
magTCh8 := GetNamedResource("IRCD", "MagTCh8", 'resource);
magTCh9 := GetNamedResource("IRCD", "MagTCh9", 'resource);
magTChPlus := GetNamedResource("IRCD", "MagTChUp", 'resource);
magTChMinus := GetNamedResource("IRCD", "MagTChDn", 'resource);
magTLouder := GetNamedResource("IRCD", "MagTVolUp", 'resource);
magTSofter := GetNamedResource("IRCD", "MagTVolDn", 'resource);
magTMute := GetNamedResource("IRCD", "MagTMute", 'resource);
magTPower := GetNamedResource("IRCD", "MagTPower", 'resource);
magTAltCh := GetNamedResource("IRCD", "MagTAltCh", 'resource);
CloseResFileX(rf);
//-------------------------------------------------------------------------------
// Emerson Resources
//-------------------------------------------------------------------------------
rf := OpenResFileX(Home & "Emerson.rsrc");
emrCh0 := GetNamedResource("IRCD", "EmCh0", 'resource);
emrCh1 := GetNamedResource("IRCD", "EmCh1", 'resource);
emrCh2 := GetNamedResource("IRCD", "EmCh2", 'resource);
emrCh3 := GetNamedResource("IRCD", "EmCh3", 'resource);
emrCh4 := GetNamedResource("IRCD", "EmCh4", 'resource);
emrCh5 := GetNamedResource("IRCD", "EmCh5", 'resource);
emrCh6 := GetNamedResource("IRCD", "EmCh6", 'resource);
emrCh7 := GetNamedResource("IRCD", "EmCh7", 'resource);
emrCh8 := GetNamedResource("IRCD", "EmCh8", 'resource);
emrCh9 := GetNamedResource("IRCD", "EmCh9", 'resource);
emrChPlus := GetNamedResource("IRCD", "EmChUp", 'resource);
emrChMinus := GetNamedResource("IRCD", "EmChDn", 'resource);
emrPower := GetNamedResource("IRCD", "EmPower", 'resource);
emrRew := GetNamedResource("IRCD", "EmRew", 'resource);
emrPlay := GetNamedResource("IRCD", "EmPlay", 'resource);
emrFF := GetNamedResource("IRCD", "EmFF", 'resource);
emrStop := GetNamedResource("IRCD", "EmStop", 'resource);
emrPause := GetNamedResource("IRCD", "EmPause", 'resource);
emrRecord := GetNamedResource("IRCD", "EmRecord", 'resource);
emrTVCR := GetNamedResource("IRCD", "EmTVCR", 'resource);
CloseResFileX(rf);
//-------------------------------------------------------------------------------
// Mitsubishi TV Resources
//-------------------------------------------------------------------------------
rf := OpenResFileX(Home & "Mitsubishi.rsrc");
mitTCh0 := GetNamedResource("IRCD", "MitsCh0", 'resource);
mitTCh1 := GetNamedResource("IRCD", "MitsCh1", 'resource);
mitTCh2 := GetNamedResource("IRCD", "MitsCh2", 'resource);
mitTCh3 := GetNamedResource("IRCD", "MitsCh3", 'resource);
mitTCh4 := GetNamedResource("IRCD", "MitsCh4", 'resource);
mitTCh5 := GetNamedResource("IRCD", "MitsCh5", 'resource);
mitTCh6 := GetNamedResource("IRCD", "MitsCh6", 'resource);
mitTCh7 := GetNamedResource("IRCD", "MitsCh7", 'resource);
mitTCh8 := GetNamedResource("IRCD", "MitsCh8", 'resource);
mitTCh9 := GetNamedResource("IRCD", "MitsCh9", 'resource);
mitTChPlus := GetNamedResource("IRCD", "MitsChUp", 'resource);
mitTChMinus := GetNamedResource("IRCD", "MitsChDn", 'resource);
mitTLouder := GetNamedResource("IRCD", "MitsLouder", 'resource);
mitTSofter := GetNamedResource("IRCD", "MitsSofter", 'resource);
mitTMute := GetNamedResource("IRCD", "MitsMute", 'resource);
mitTPower := GetNamedResource("IRCD", "MitsPower", 'resource);
mitTAltCh := GetNamedResource("IRCD", "MitsAltCh", 'resource);
CloseResFileX(rf);
//-------------------------------------------------------------------------------
// Sony TV Resources
//-------------------------------------------------------------------------------
rf := OpenResFileX(Home & "SonyTV.rsrc");
sonyTCh0 := GetNamedResource("IRCD", "SonyTV0", 'resource);
sonyTCh1 := GetNamedResource("IRCD", "SonyTV1", 'resource);
sonyTCh2 := GetNamedResource("IRCD", "SonyTV2", 'resource);
sonyTCh3 := GetNamedResource("IRCD", "SonyTV3", 'resource);
sonyTCh4 := GetNamedResource("IRCD", "SonyTV4", 'resource);
sonyTCh5 := GetNamedResource("IRCD", "SonyTV5", 'resource);
sonyTCh6 := GetNamedResource("IRCD", "SonyTV6", 'resource);
sonyTCh7 := GetNamedResource("IRCD", "SonyTV7", 'resource);
sonyTCh8 := GetNamedResource("IRCD", "SonyTV8", 'resource);
sonyTCh9 := GetNamedResource("IRCD", "SonyTV9", 'resource);
sonyTChPlus := GetNamedResource("IRCD", "SonyTVchUp", 'resource);
sonyTChMinus := GetNamedResource("IRCD", "SonyTVchDown", 'resource);
sonyTLouder := GetNamedResource("IRCD", "SonyTVvolUp", 'resource);
sonyTSofter := GetNamedResource("IRCD", "SonyTVvolDown", 'resource);
sonyTMute := GetNamedResource("IRCD", "SonyTVmute", 'resource);
sonyTPower := GetNamedResource("IRCD", "SonyTVpowerToggle", 'resource);
CloseResFileX(rf);